home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cli / ksc_Beep.lha / Beep.asm next >
Encoding:
Assembly Source File  |  1998-04-08  |  421 b   |  24 lines
  1. ; Beep v1.1 : does a displaybeep!
  2. ; by Kyzer/CSG
  3. ; $VER: Beep.asm 1.1 (29.12.97)
  4. ;
  5.     incdir    include:
  6.     include    lvo/exec_lib.i
  7.     include    lvo/intuition_lib.i
  8.  
  9. Beep    move.l    4.w,a6
  10.     lea    intname(pc),a1
  11.     moveq    #32,d1
  12.     jsr    _LVOOpenLibrary(a6)
  13.     tst.l    d0
  14.     beq.s    .exit
  15.     move.l    d0,a6
  16.     suba.l    a0,a0
  17.     jsr    _LVODisplayBeep(a6)
  18.     move.l    a6,a1
  19.     move.l    4.w,a6
  20.     jsr    _LVOCloseLibrary(a6)
  21. .exit    moveq    #0,d0
  22.     rts
  23. intname    dc.b    'intuition.library',0
  24.